home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 28 / PC Gamer IT CD 28 1-2.iso / MEDIA / Net.dxr / Internal_1.ls < prev    next >
Encoding:
Text File  |  1997-12-30  |  2.0 KB  |  81 lines
  1. on prepareMovie
  2.   if the platform = "Windows,32" then
  3.     openXLib(the pathName & "XTRAS32\Fileio")
  4.     openXLib(the pathName & "XTRAS32\FileXtra")
  5.   else
  6.     if the platform = "Windows,16" then
  7.       openXLib(the pathName & "XTRAS16\Fileio")
  8.       openXLib(the pathName & "XTRAS16\FileXtra")
  9.     else
  10.       openXLib(the pathName & "xtras:FileIOXtraFat")
  11.     end if
  12.   end if
  13.   getNetData()
  14. end
  15.  
  16. on startMovie
  17.   loadBrowser()
  18.   getPrefThingy()
  19.   loadBrowser()
  20.   set the visible of sprite 11 to 0
  21.   set the visible of sprite 12 to 0
  22.   set the visible of sprite 13 to 0
  23.   set the visible of sprite 14 to 0
  24.   set the visible of sprite 15 to 0
  25.   set the visible of sprite 16 to 0
  26.   set the visible of sprite 17 to 0
  27.   set the visible of sprite 18 to 0
  28.   set the visible of sprite 19 to 0
  29.   set the visible of sprite 20 to 0
  30.   set the visible of sprite 21 to 0
  31.   set the visible of sprite 22 to 0
  32.   set the visible of sprite 23 to 0
  33.   set the visible of sprite 40 to 0
  34.   set the visible of sprite 41 to 0
  35.   set the visible of sprite 42 to 0
  36.   set the visible of sprite 43 to 0
  37. end
  38.  
  39. on keyDown
  40.   if the key = "" then
  41.     nothing()
  42.     dontPassEvent()
  43.   end if
  44. end
  45.  
  46. on loadBrowser
  47.   global myFile
  48.   set gOSDir to getOSDirectory()
  49.   put gOSDir & "\" into field "OSPath"
  50.   put gOSDir & "\BROWSER.TXT" into field "ThePath"
  51.   set DaPath to field "ThePath"
  52.   if objectp(myFile) then
  53.     set myFile to 0
  54.   end if
  55.   set myFile to new(xtra("fileio"))
  56.   openFile(myFile, DaPath, 1)
  57.   set TheWeb to readLine(myFile)
  58.   put TheWeb into field "browserSelect"
  59.   closeFile(myFile)
  60.   set myFile to 0
  61. end
  62.  
  63. on TrackClick
  64.   set spriteNum to the clickOn
  65.   set offCast to the castNum of sprite spriteNum
  66.   set onCast to offCast + 1
  67.   set the castNum of sprite spriteNum to onCast
  68.   updateStage()
  69.   repeat while the mouseDown
  70.     if rollOver(spriteNum) then
  71.       set the castNum of sprite spriteNum to onCast
  72.     else
  73.       set the castNum of sprite spriteNum to offCast
  74.     end if
  75.     updateStage()
  76.   end repeat
  77.   set the castNum of sprite spriteNum to offCast
  78.   updateStage()
  79.   return rollOver(spriteNum)
  80. end
  81.